inherited fmSysDic: TfmSysDic
  Left = 484
  Top = 112
  Width = 718
  Height = 788
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082#1080
  Constraints.MinHeight = 383
  Constraints.MinWidth = 531
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 723
    Width = 702
  end
  inherited Panel1: TPanel
    Width = 702
    TabOrder = 1
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 527
    end
    inherited BitBtn2: TBitBtn
      Left = 615
    end
  end
  object tbTop: TToolBar [2]
    Left = 0
    Top = 45
    Width = 702
    Height = 36
    AutoSize = True
    BorderWidth = 2
    ButtonHeight = 24
    Images = DMInv.ilActive
    TabOrder = 0
    TabStop = True
    Transparent = True
    object tbInsert: TToolButton
      Left = 0
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      ImageIndex = 30
      ParentShowHint = False
      ShowHint = True
      OnClick = tbInsertClick
    end
    object tbInsertChild: TToolButton
      Left = 23
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1086#1090#1086#1084#1082#1072
      Caption = 'tbInsertChild'
      ImageIndex = 32
      ParentShowHint = False
      ShowHint = True
      OnClick = tbInsertChildClick
    end
    object tbDelete: TToolButton
      Left = 46
      Top = 2
      Hint = #1059#1076#1072#1083#1080#1090#1100
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDeleteClick
    end
    object tbEdit: TToolButton
      Left = 69
      Top = 2
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = tbEditClick
    end
    object ToolButton3: TToolButton
      Left = 92
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object cbType: TComboBox
      Left = 100
      Top = 2
      Width = 233
      Height = 24
      AutoDropDown = True
      Style = csDropDownList
      DropDownCount = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnChange = cbTypeChange
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 81
    Width = 702
    Height = 46
    Align = alTop
    TabOrder = 3
    TabStop = True
    Visible = False
    object edSDNAME: TcxDBTextEdit
      Left = 9
      Top = 13
      DataBinding.DataField = 'SDNAME'
      DataBinding.DataSource = dlgDS
      TabOrder = 0
      Width = 250
    end
    object btSave: TBitBtn
      Left = 306
      Top = 10
      Width = 90
      Height = 25
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      Default = True
      TabOrder = 2
      OnClick = btSaveClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btCancel: TBitBtn
      Left = 402
      Top = 10
      Width = 87
      Height = 25
      Cancel = True
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100
      TabOrder = 1
      OnClick = btCancelClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object dbTW: TdxDBTreeView [4]
    Left = 0
    Top = 127
    Width = 702
    Height = 596
    ShowNodeHint = True
    DeletingConfirmationMessage = #1042#1099' '#1076#1077#1081#1089#1090#1074#1080#1090#1077#1083#1100#1085#1086' '#1093#1086#1090#1080#1090#1077' '#1091#1076#1072#1083#1080#1090#1100' '#1101#1083#1077#1084#1077#1085#1090' "%s"'
    RowSelect = True
    DataSource = dlgDS
    DisplayField = 'SDNAME'
    KeyField = 'SDID'
    ListField = 'SDNAME'
    ParentField = 'SDPARID'
    RootValue = 22
    SeparatedSt = '-'
    StateIndexField = 'SDISDELETE'
    RaiseOnError = True
    DragMode = dmAutomatic
    Indent = 19
    OnCollapsing = dbTWCollapsing
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    Options = [trSmartRecordLoad, trCheckHasChildren]
    SortType = stText
    SelectedIndex = 1
    TabOrder = 2
    OnDblClick = dbTWDblClick
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    IsConfirmationAssigned = True
  end
  inherited dlgDS: TDataSource
    DataSet = qSD
    Left = 80
    Top = 88
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qSDAfterInsert
    AfterOpen = qSDAfterOpen
    BeforeOpen = qSDBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'UNION'
      'SELECT SD.SDPARID, SD.SDID, SD.SDNAME, SD.SDISDELETE'
      'FROM SYS_DIC SD'
      'WHERE SD.SDID = :SDPARID AND SD.SDISDELETE = 0'
      'order by 1')
    UpdateObject = quSD
    GeneratorField.Field = 'SDID'
    GeneratorField.Generator = 'GEN_SYS_DIC'
    Left = 120
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object quSD: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  SDID,'
      '  SDPARID,'
      '  SDNAME'
      'from SYS_DIC '
      'where'
      '  SDID = :SDID')
    ModifySQL.Strings = (
      'update SYS_DIC'
      'set'
      '  SDID = :SDID,'
      '  SDNAME = trim (leading from :SDNAME),'
      '  SDPARID = :SDPARID'
      'where'
      '  SDID = :OLD_SDID')
    InsertSQL.Strings = (
      'insert into SYS_DIC'
      '  (SDID, SDNAME, SDPARID)'
      'values'
      '  (:SDID, trim (leading from :SDNAME) , :SDPARID)')
    DeleteSQL.Strings = (
      'delete from SYS_DIC'
      'where'
      '  SDID = :OLD_SDID')
    Left = 160
    Top = 88
  end
  object qType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qTypeAfterOpen
    SQL.Strings = (
      'SELECT SD.SDID, SD.SDNAME'
      '  FROM SYS_DIC SD'
      ' WHERE SD.SDPARID = 0'
      ' ORDER BY 2')
    Left = 344
    object qTypeSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
  end
  object qChekChild: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid')
    Left = 200
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
  end
end
